home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO56.MNU < prev    next >
Text File  |  1986-09-22  |  380b  |  11 lines
  1. [SLOT    ]^C^C(Setq P1 (Getpoint+
  2. "Insertion point of slot: "));\+
  3. (Setq A (Getdist P1 "Radius: "));\+
  4. (Setq B (Getdist P1 "Length: "));\+
  5. (Setq C (Getangle P1 "Angle: "));\+
  6. Arc;C;!P1;(Polar P1 (+ (/ Pi 2) C) A);+
  7. A;180;Line;;(Polar (Getvar "Lastpoint")+
  8. A B);;Arc;;(Polar (Getvar "Lastpoint")+
  9. (+ (/ Pi 2) C) (* 2 A));Line;;(Polar+
  10. (Getvar "Lastpoint") (+ Pi C) B);;
  11.